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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

PURPOSE: 

COMPUTER 

CONFIGURATION: 

SUBROUTINES 

REQUIRED: 

STORAGE: 

TIMING: 

USE: 


METHOD: 


PROGRAM DESCRIPTION 


Catalog Number 300013C 


Full ASCII to BCD Conversion 
Systems Engineering Laboratories, Inc. 

January 28, 1969 

To convert a buffer of ASCII characters to BCD. 


Any SEL 810A/B 


None 

72 octal locations 

16 cycles + 36 cycles per word 

The calling sequence is; 

CALL ASCBCD 
DAC BUF 
DATA N 

where BUF is the address of the first location of the 
buffer to be translated. The buffer contains 8 bit 
ASCII characters, 1 character per word right justified. 
N is the number of words in buffer. The 6 bit BCD 
character is stored in the buffer left justified as in 
most cases the BCD mode is used for outputting to 7 
track magnetic tape. 

An indexed look-up on a table containing two BCD 
characters per word is used. 




1 PAGE 0001 910A/B PULL ASCII T0 BCD CAT. N». 30.-.013C 

0002 00000 00000000 « 

-0003.QQQQQ OOQOOQOO * CONVERT FR0M ASCII T3 BCq 

000* 00000 00000000 * 

0005 00000 OQOOOOOO * 

0006 00000 00000000 * CALLING sequence 

0007 00000 QOOOOOOO » CALL AS8CD 

oooe ooooo oooooooo * uac buf 

0009 00000 OQOOOOOO * UATA 

0010 ooooo oooooooo hel 

OQU OOOOO 50000000 NAME ASCBCO.BEQN 

0012 OOOOO OOOOOOOO BEGN **• »» 

0013 00001 01300000 LAA* BEGN 

0014 00002 03100030 STA BUF 

0015- 00003 14100000 IMS BEGN 

0016 00004 01300000 LAA# BEGN NEG COUNT 

0017 00005 00000002 NEO 

0018 00006 03100031 STA CNT 

QQ1S 00007 L4100QOQ IMS BEGN nDU 1/25/69 *C 

0020 00010 01300030 A6N LAA# BUF 

.0021- 00011. 00001216 LSL 10 

0022 00012 00001215 RSL 10 

0023 00013 00000006 IA8 

0024 00014 00000003 CLA 

0025 00015 00001713 FLL 15 

0026 00016 00000006 I AO 

0.0.27 _00017 02500032 L8A TABL , 1 

0028 00020 00000024 SaP 

0029 00021 00001013 FLL 8 

0030 00022 00000213 ?LL 2 

0031 00023 04300030 STS* BUF 

0032 00024 14100030 IMS 8UF 

0033. 00025 15100031 IMS CNT HAVE WE FINISHED BUFFER 

0034 00026 11100010 BRU AON 

0035 QQQ27 11300000 BRU* BEGN YES 

0036 00030 00000001 BUF BSS i 

0037 00031 00000001 CNT BSS l 

0038 00032 OOOOOOOO • 


MDL 1/10/69 *C 
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810A/8 

PULL ASCI 

0039 

0OQ32 

OOOOOOOO 

• 



ASCII 

0040 

00032 

00000000 

* 




0041 

00032 

00027461 

TABL 

UAT A 

•027461 

300,301 

0042 

00033 

00031063 


DATA 

♦031063 

302,303 

0043 

00034 

00032065 


DATA 

•032065 

304,305 

0044 

00035 

00033067 


DATA 

•033067 

306,307 

0045. 

Q0Q36 

00034Q71 


DATA 

*034071 

310,311 

0046 

00037 

00020442 


DATA 

*020442 

312,313 

0047 

00040 

00021444 


DATA 

•021444 

314,315 

qq4B 

000*1 00Q22446 


DATA 

• 0 22446 

316,317 

0049 

00042 

00023450 


DATA 

•023450 

320,321 

0050 

00043 

00024422 


DATA 

•024422 

322,323 

0051 

00044 

00011424 


DATA 

*011.424 

32.4,325 

0052 

00045 

00012426 


DATA 

’012426 

326,327 

0053 

00046 

00013430 


DATA 

*013430 

330,331 

0054 

00047 

00014475 


DAf A 

*014475 

332,333 

0055 

00050 

00017055 


DATA 

*017055 

334,335 

0056 

00051 

00015077 


DATA 

*015077 

336,337 

0Q52_ 

00052 

00010052 


data 

•010052 

240,241 

005S 

00053 

00017435 


data 

♦017435 

242,243 

005? 

00054 

00025420 


DATA 

•025420 

244,245 

0060 

00055 

00010014 


DATA 

•010014 

246,247 

0061 

QQQ56 

00016074 


DATA 

•016074 

250,251 

0062 

00057 

00026060 


DATA 

♦026060 

252,253 

0061.. 

00060 

Q 0015.4 40 


DATA 

*015440 

25.4,255 

0064 

00061 

00035421 


DATA 

♦035421 

256 f 257 

0065 

00062 

00005001 


DATA 

•005001 

260,261 

0066 

00063 

00001003 


DATA 

*001003 

262,263 

0067 

00064 

00002005 


DATA 

•002005 

264,265 

0068 

00065 

00003007 


DATA 

•003007 

266,267 

0069 

.00066 

00004011 


DATA 

•004011 

270,271 

0070 

00067 

00006456 


DAT - A 

•006456 

272,273 

Q071 

00070 

00037013 


DATA 

*037013 

274,275 

0072 

00071 

00007072 


DATA 

•007072 

276,277 

0073 

QO072 

7Q400000 


fcND 



ERRORS 0000 

00000 






T0 BCD CAT. 

BCD 

57,61 

62,63 

64,65 

66,67 

70.71 
41,42 
43,44 
45,46 
47,50 
51,22 
23,24 
25,26 
27,30 
31,75 

36.55 
32,77 
20,52 
37,35 

53.20 
20,14 

34,74 REPLACE 

54,60 

33,40 

73.21 
12,01 
02,03 
04,05 
06,07 
10,11 

15.56 
76,13 

16.72 


N 0 . 30n0l3c 
HOI; 1 /10/69 tc 
HOLi 1 y 10/69 *C 
HOL' 1/10/69 *c 


MOl* 1/10/69 #C 
HDL' 1.10/69 *C 


MOLT 1/10/69 *C 
MDL. 1/10/69 #C 
J°0 S6 T 13 1967 


HOLi 1/10/69 #C 


#8 


t 



